home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
net
/
amitcp2_x_gcc.lha
/
sana2perror.c
< prev
next >
Wrap
C/C++ Source or Header
|
1994-01-12
|
2KB
|
64 lines
char RCS_ID_SANA2PERROR_C[] = "$Id: sana2perror.c,v 1.3 1994/01/12 18:38:06 jasegler Exp jasegler $";
/*
* sana2perror.c --- print SANA-II error message
*
* Author: ppessi <Pekka.Pessi@hut.fi>
*
* Copyright © 1993 AmiTCP/IP Group, <amitcp-group@hut.fi>
* Helsinki University of Technology, Finland.
* All rights reserved.
*
* Created : Sat Mar 20 02:10:14 1993 ppessi
* Last modified: Sun Jun 13 03:17:42 1993 ppessi
*/
#ifdef KERNEL
/*
* Note: This file is to be recompiled with AmiTCP/IP proper
* with preprocessor symbol KERNEL defined.
* You should NOT link it directly from "net.lib"!
*/
#include <conf.h>
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/syslog.h>
#define fprintf log
#define stderr LOG_ERR
#else
#include <stdio.h>
#endif
#include <devices/sana2.h>
#include <net/sana2errno.h>
void
sana2perror (const char *banner, struct IOSana2Req *ios2)
{
register WORD err = ios2->ios2_Req.io_Error;
register ULONG werr = ios2->ios2_WireError;
const char *errstr;
if (err >= sana2io_nerr || -err > io_nerr)
{
errstr = io_errlist[0];
}
else
{
if (err < 0)
/* Negative error codes are common with all IO devices */
errstr = io_errlist[-err];
else
/* Positive error codes are SANA-II specific */
errstr = sana2io_errlist[err];
}
if (werr == 0 || werr >= sana2wire_nerr)
{
fprintf (stderr, "%s: %s\n", banner, errstr);
}
else
{
fprintf (stderr, "%s: %s (%s)\n", banner, errstr, sana2wire_errlist[werr]);
}
}